home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / x / volume3 / xcmap / patch1 < prev    next >
Encoding:
Internet Message Format  |  1989-02-08  |  6.4 KB
  1. Path: uunet!wyse!mikew
  2. From: mikew@wyse.wyse.com (Mike Wexler)
  3. Newsgroups: comp.sources.x
  4. Subject: v03i011:  display the default colormap, Patch1
  5. Message-ID: <2045@wyse.wyse.com>
  6. Date: 8 Feb 89 23:22:33 GMT
  7. Organization: Wyse Technology, San Jose
  8. Lines: 166
  9. Approved: mikew@wyse.com
  10.  
  11. Submitted-by: bradley@dsl.cis.upenn.edu (John Bradley)
  12. Posting-number: Volume 3, Issue 11
  13. Archive-name: xcmap/patch1
  14.  
  15.  
  16.  
  17. This corrects two bugs in xcmap.  The first bug had to do with X Servers that
  18. didn't return a power of 2 on the function "XDisplayCells()".  The program
  19. wouldn't run on them.  The second bug occurred when you dragged the mouse 
  20. outside of the window.  It would return out-of-value pixels, and eventually
  21. crash.
  22.  
  23. diff -c xcmap/README xcmapnew/README
  24. *** xcmap/README    Wed Feb  8 17:25:35 1989
  25. --- xcmapnew/README    Wed Feb  8 17:10:10 1989
  26. ***************
  27. *** 1,3 ****
  28. --- 1,47 ----
  29.   xcmap is a program that displays the contents of the default colormap on 
  30.   4-, 6-, and 8-bit X11 displays.  It displays the colormap both as a grid of
  31.   colored rectangles, and as RGB components.
  32. + 
  33. + This is a very useful thing to anybody who's trying to do color-intensive
  34. + programs (such as displaying GIF pictures...) on X.
  35. + 
  36. + It's also kind of neat to watch.
  37. + 
  38. + John Bradley  -  bradley@cis.upenn.edu
  39. + 
  40. + 
  41. + PATCH 1:
  42. +   Contributed by Dave Gorgen / Apollo Computer Inc (dpg@citi.umich.edu)
  43. +   Allows xcmap to run on X servers that pre-allocate colors for the cursor,
  44. +   returning an "XDisplayCells()" value != a power of 2.  This would include
  45. +   Apollos, DEC QDSSs, and no doubt some other machines.
  46. + 
  47. + -------------
  48. + (The full description of the problem, from Dave's letter...)
  49. +     I was happy to see xcmap posted on comp.sources.x; it's one of those
  50. + programs I always meant to write but never got around to.
  51. + 
  52. +     However, when I ran it on my Apollo server I got:
  53. + 
  54. + xcmap: dispcells = 254.  This program can only deal with 4, 6, and 8-bit display
  55. + s.
  56. + 
  57. +     The problem is that xcmap, like many color X clients, incorrectly assumes
  58. + that if a visual is n bits deep, it must support exactly 2**n colormap entries.
  59. + The protocol explicitly allows fewer entries; this fact is used by several X
  60. + servers (Apollo color servers, DEC QDSS servers, and perhaps others) to reserve
  61. + 2 slots for the cursor colors.  Unless the display hardware has a 2-color cursor
  62. + sprite, this is the only correct way to do a color cursor that I know of.
  63. + 
  64. +     (The Sun color cursor support on the MIT tape, which allocates the cursor
  65. + colors dynamically out of the default color map, is acknowledged by the author(s
  66. + )
  67. + to be wrong.  I don't know how IBM, HP or MacII color displays do cursors.)
  68. + 
  69. +     Anyway, I modified xcmap to accept any value it finds for dispcells <= 256.
  70. + It will draw the same square array of pixels, including the out-of-bounds ones,
  71. + but if you select an out-of-bounds pixel to display its RGB values, it will
  72. + just say that the pixel is out-of-bounds.  For what it's worth, this also allows
  73. + xcmap to run on monochrome displays, albeit rather boringly.
  74. + ------------------
  75. + 
  76. diff -c xcmap/patchlevel.h xcmapnew/patchlevel.h
  77. *** xcmap/patchlevel.h    Wed Feb  8 17:25:38 1989
  78. --- xcmapnew/patchlevel.h    Wed Feb  8 17:02:59 1989
  79. ***************
  80. *** 1 ****
  81. ! #define PATCHLEVEL 0
  82. --- 1 ----
  83. ! #define PATCHLEVEL 1
  84. diff -c xcmap/xcmap.c xcmapnew/xcmap.c
  85. *** xcmap/xcmap.c    Wed Feb  8 17:25:38 1989
  86. --- xcmapnew/xcmap.c    Wed Feb  8 17:15:12 1989
  87. ***************
  88. *** 106,123 ****
  89.       theVisual = DefaultVisual(theDisp,theScreen);
  90.   
  91.       dispcells = DisplayCells(theDisp, theScreen);
  92. !     if (dispcells!=16 && dispcells!=64 && dispcells != 256) {
  93. !         sprintf(tmpstr,"dispcells = %d.  This program can only deal with 4, 6, and 8-bit displays.",dispcells);
  94.           FatalError(tmpstr);
  95.           }
  96.   
  97. -     switch (dispcells) {
  98. -     case  16:  nxcells = nycells =  4;  break;
  99. -     case  64:  nxcells = nycells =  8;  break;
  100. -     case 256:  nxcells = nycells = 16;  break;
  101. -         }
  102. -     
  103. - 
  104.       /**************** Create/Open X Resources ***************/
  105.       if ((mfinfo = XLoadQueryFont(theDisp,FONT))==NULL) {
  106.          sprintf(tmpstr,"couldn't open '%s' font",FONT);
  107. --- 106,125 ----
  108.       theVisual = DefaultVisual(theDisp,theScreen);
  109.   
  110.       dispcells = DisplayCells(theDisp, theScreen);
  111. ! 
  112. !     if (dispcells>256) {
  113. !         sprintf(tmpstr,"dispcells = %d.  This program can only deal with <= 8-bit displays.",dispcells);
  114.           FatalError(tmpstr);
  115.           }
  116. +     else if (dispcells>64)
  117. +         nxcells = nycells = 16;
  118. +     else if (dispcells>16)
  119. +         nxcells = nycells = 8;
  120. +     else if (dispcells>4)
  121. +         nxcells = nycells = 4;
  122. +     else
  123. +         nxcells = nycells = 2;
  124.   
  125.       /**************** Create/Open X Resources ***************/
  126.       if ((mfinfo = XLoadQueryFont(theDisp,FONT))==NULL) {
  127.          sprintf(tmpstr,"couldn't open '%s' font",FONT);
  128. ***************
  129. *** 339,344 ****
  130. --- 341,349 ----
  131.       static unsigned long pix, lastpix;
  132.       static int           pvaly;
  133.   
  134. +     if (x<0) x=0;  if (x>=WIDE) x=WIDE-1;
  135. +     if (y<0) y=0;  if (y>=HIGH) y=HIGH-1;
  136. + 
  137.       if (!pvalup) {    /* it's not up.  make it so */
  138.           if (y >= HIGH/2) pvaly = 0;  else pvaly = HIGH - 12;
  139.           pvalup = 1;
  140. ***************
  141. *** 356,368 ****
  142.   
  143.       XSetForeground(theDisp,theGC,fcol);
  144.           lastpix = def.pixel = pix;
  145. !         XQueryColor(theDisp, theCmap, &def);
  146. !         sprintf(tmpstr, "Pix %3ld = ($%04x, $%04x, $%04x)",
  147. !                          pix, def.red, def.green, def.blue);
  148.   
  149. !         /* make the hex uppercase */        
  150. !         for (sp=tmpstr+4; *sp; sp++) 
  151. !             if (islower(*sp)) *sp = toupper(*sp);
  152.   
  153.           XDrawImageString(theDisp,mainW,theGC,5,pvaly+10,tmpstr,strlen(tmpstr));
  154.           }
  155. --- 361,378 ----
  156.   
  157.       XSetForeground(theDisp,theGC,fcol);
  158.           lastpix = def.pixel = pix;
  159. !         if (pix<dispcells) {
  160. !             XQueryColor(theDisp, theCmap, &def);
  161. !             sprintf(tmpstr, "Pix %3ld = ($%04x, $%04x, $%04x)",
  162. !                              pix, def.red, def.green, def.blue);
  163.   
  164. !             /* make the hex uppercase */        
  165. !             for (sp=tmpstr+4; *sp; sp++) 
  166. !                 if (islower(*sp)) *sp = toupper(*sp);
  167. !             }
  168. !         else {
  169. !             sprintf(tmpstr, "Pix %3ld is out of legal range. ", pix);
  170. !             }
  171.   
  172.           XDrawImageString(theDisp,mainW,theGC,5,pvaly+10,tmpstr,strlen(tmpstr));
  173.           }
  174. -- 
  175. Mike Wexler(wyse!mikew)    Phone: (408)433-1000 x1330
  176. Moderator of comp.sources.x
  177.